# Title     : TODO
# Objective : TODO
# Created by: Administrator
# Created on: 2019/6/24

library(ggrepel)
library(ropls)
library(pROC)
library(egg)
library(randomForest)
library(Boruta)
library(magrittr)
library(e1071)
library(caret)
library(tidyverse)

data1 <- rep(0.000173, 18)
data2 <- rep(0.000173, 19)
p <- 0
p<-tryCatch({
  test <- t.test(data1, data2, paired = F)
  test$p.value
}, error = function(e) {
  1
})
p

